home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
1517.ZIP
/
DB4LESS3.ZIP
/
FUNCODE.FMT
< prev
next >
Wrap
Text File
|
1988-12-10
|
1KB
|
51 lines
********************************************************************************
*-- Name....: FUNCODE.FMT
*-- Date....: 12-10-88
*-- Version.: dBASE IV, Format 1.0
*-- Notes...: Format files use "" as delimiters!
********************************************************************************
*-- Format file initialization code --------------------------------------------
IF SET("TALK")="ON"
SET TALK OFF
lc_talk="ON"
ELSE
lc_talk="OFF"
ENDIF
*-- This form was created in COLOR mode
SET DISPLAY TO COLOR
lc_status=SET("STATUS")
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"
SET STATUS ON
ENDIF
*-- @ SAY GETS Processing. -----------------------------------------------------
*-- Format Page: 1
@ 2,25 SAY "FUNCTION CODE INFORMATION FORM"
@ 4,6 TO 8,71
@ 6,8 SAY "Code"
@ 6,13 GET funcode PICTURE "@! XXXX"
@ 6,22 SAY "Description"
@ 6,35 GET fundesc PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
*-- Format file exit code -----------------------------------------------------
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF" && Entered form with status off
SET STATUS OFF && Turn STATUS "OFF" on the way out
ENDIF
IF lc_talk="ON"
SET TALK ON
ENDIF
RELEASE lc_talk,lc_fields,lc_status
*-- EOP: FUNCODE.FMT